home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
patches
/
ami301c.zip
/
QKFUNCT.SM$
/
QKFUNCT.SMM
Wrap
INI File
|
1993-05-27
|
28KB
|
1,936 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Return the value of a formula or @ function.
738531019
26
732570070
323
10
517
4188
14
14
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
16
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
Peyton McManus
Lotus WPD
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
10
42 0 17 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
86 0 14 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
93 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
134 0 50 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
177 70 56 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
221 0 15 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
265 0 23 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
309 0 8 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
354 0 47 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
379 0 10 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Outline2@<:#284,9360>' Macro to return the value of an @ function. Demonstrates basic use of Ltsce01.dll
@Outline2@<:#284,9360>
@Outline2@<:#284,9360>Define NumDec 2
<:#284,9360>Define EM_LimitText 1045
@Outline2@<:#284,9360>Define VK_F1 112
@Outline2@<:#284,9360>
<:#284,9360>Declare DataChange(Hdlg, id, value)
<:#284,9360>Declare FontDlg(Action, Hdlg, id)
<:#284,9360>Declare CellEngine(action,Formula)
<:#284,9360>Declare ManageList(Hdlg, id, section)
<:#284,9360>Declare RadioCall(Hdlg, id, value)
<:#284,9360>Declare DoIt(Hdlg, id)
<:#284,9360>
Define Desc "Enter the formula or @function below:"
<:#568,9360>Define Desc2 "To calculate the sum of three numbers multiplied by 12, type @sum(12,22,34)*12"
<:#284,9360>
<:#568,9360>Define HelpText "Choose @Functions to get a list of available @functions to insert into your formula."
@Subhead@<:#284,9360>Function Main()
<:#284,9360>DefStr hInstance;
<:#284,9360>Mac = GetRunningMacroFile$()
<:#284,9360>FontDlg(1,0,0)
<:#284,9360>CellEngine(1,0)
<:#284,9360>FillEdit(1001, Desc)
<:#284,9360>FillEdit(1003, Desc2)
<:#284,9360>FillEdit(1004, HelpText)
<:#284,9360>SetDlgCallBack(0,"{Mac}!InitDlg")
<:#284,9360>SetDlgCallBack(22,"{Mac}!FunButton")
<:#284,9360>SetDlgCallBack(8000,"{Mac}!DataChange")
@Outline3@<:#284,9360>DlgKeyInterrupt(VK_F1, "{mac}!DisplayHelp")
<:#284,9360>Box = DialogBox(".","Deprec")
<:#284,9360>If Box = 3
<:#284,9360> Answer = GetDialogField$(8004)
<:#284,9360> ClipBoardWrite(Answer,1)
<:#284,9360>Endif
<:#284,9360>FontDlg(4,0,0) ' Destroy the small font object and free the global variable
<:#284,9360>CellEngine(0,0) ' Shut down the engine and free the global variable
<:#284,9360>End function
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function DataChange(Hdlg, id, value)
<:#284,9360>IgnoreKeyBoard(2)
<:#284,9360>DefStr Allowance;
<:#284,9360>Formula = GetDlgItemText(hDlg, 8000)
<:#284,9360>Define Form "@IF({Formula}<<1E49,@Round({Formula},2),@ERR)"
<:#284,9360>' the formula traps for values
<:#284,9360>Answer = CellEngine(3,Form)
<:#284,9360>If IsNumeric(Answer)
<:#284,9360> Answer = Answer * 1
<:#284,9360> SetDlgItemText(hDlg, 8004, FormatNum$("","",NumDec,Answer))
<:#284,9360>Else
<:#284,9360> SetDlgItemText(hDlg, 8004, Answer)
<:#284,9360>Endif
<:#284,9360>
<:#284,9360>End Function
@Subhead@<:#284,9360>
@Subhead@<:#284,9360>Function InitDlg(hDlg, id, value)
<:#284,9360>' use the fontdlg function to display the following control with a small font
<:#284,9360>IgnoreKeyBoard(2)
<:#284,9360>HourGlass(on)
<:#284,9360>For t = 1000 to 1004
<:#284,9360> FontDlg(3, Hdlg, T)
<:#284,9360>Next
<:#284,9360>FontDlg(3, Hdlg, 8000)
<:#284,9360>'SetDlgItemText(hDlg, 8004, FormatNum$("","",NumDec,0))
<:#284,9360>AppSendMessage(GetDlgItem(Hdlg, 8000),EM_LimitText,120,0)
<:#284,9360>HourGlass(off)
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>Function FunButton(Hdlg, id, value)
<:#284,9360>
<:#284,9360>DoIt(Hdlg, 8000)
<:#284,9360>DataChange(Hdlg, 8000,GetDlgItemText(Hdlg, 8000))
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>function DisplayHelp()
@Outline2@<:#284,9360>' two defines needed for help. The help name and panel number are defined above
@Outline2@<:#284,9360>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
@Outline2@<:#284,9360>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline2@<:#284,9360>
@Outline2@<:#284,9360>
@Outline2@<:#284,9360>prohWnd = FindWindowa("AmiProWndA", 0)
@Outline2@<:#284,9360>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
@Outline2@<:#284,9360>PanelNum= 100
@Outline2@<:#284,9360>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
@Outline2@<:#284,9360>end function
@Outline1@<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:p<* >>
@Subhead@<:#284,9360>Function CellEngine(Action, Formula)
<:#284,9360>'Available Actions
<:#284,9360>' 1 Start the engine and allocate globalvar
<:#284,9360>' 2 Return the handle to the instance of the sheet
<:#284,9360>' 3 Pass a formula as the second param
<:#284,9360>' 0 Shut everything down
<:#284,9360>' Default Expect a formula and return an answer
<:#284,9360>
<:#284,9360>' these defines may be useful at the beginning of your macro
<:#284,9360>Define StartEngine 1
<:#284,9360>Define GetInstance 2
<:#284,9360>Define PassFormula 3
<:#284,9360>Define CloseEngine 0
<:#284,9360>
<:#568,9360>Define CECREATEINSTANCE(LPHANDLE) DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
<:#568,9360>Define CEDESTROYINSTANCE(HANDLE) DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
<:#568,9360>Define CECALCNOW(HINSTANCE, lpFormula, lpOutPut) DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
<:#284,9360>
<:#284,9360>DefStr hInstance, Answer, Var;
<:#284,9360>Mac = GetRunningMacroFile$()
<:#284,9360>GlobalInstance = StrCat$(Mac,"hIstance")
<:#284,9360>AmiDir = GetAmiDirectory$()
<:#284,9360>
<:#284,9360>Switch Action
<:#284,9360> Case 1
<:#284,9360> ' start the engine
<:#284,9360> LibId = DLLLoadLib("{AmiDir}LTSCE01.DLL","CECreateInstance","HO")
<:#284,9360> If LibId = 0
<:#568,9360> Message("LTSCE01.DLL not found. Copy the dll to your windows directory")
<:#284,9360> Return -1;
<:#284,9360> Endif
<:#284,9360> RetVal = CECREATEINSTANCE(&hInstance)
<:#284,9360> AllocGlobalVar("{GlobalInstance}",1)
<:#284,9360> AllocGlobalVar("{Mac}LibId",1)
<:#284,9360> SetGlobalVar("{Mac}Libid",LibId)
<:#284,9360> SetGlobalVar("{GlobalInstance}",hInstance)
<:#284,9360> Return hInstance;
<:#284,9360> Break;
<:#284,9360>
<:#284,9360> Case 2
<:#284,9360> ' return the handle to the instance of the sheet
<:#284,9360> AllocGlobalVar("{GlobalInstance}",1)
<:#284,9360> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,9360> Return hInstance;
<:#284,9360> Break;
<:#284,9360>
<:#284,9360> Case 3;
<:#284,9360> ' Calculate the formula and return the answer
<:#284,9360> AllocGlobalVar("{GlobalInstance}",1)
<:#284,9360> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,9360> CECalcNow(hInstance,"{Formula}",&Answer)
<:#284,9360> Return Answer;
<:#284,9360> Break;
<:#284,9360>
<:#284,9360>
<:#284,9360> Case 0
<:#284,9360> ' destroy the instance of the sheet and free the global var and libid
<:#284,9360> AllocGlobalVar("{GlobalInstance}",1)
<:#284,9360> AllocGlobalVar("{Mac}LibId",1)
<:#284,9360> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,9360> LibId = GetGlobalVar$("{Mac}LibId")
<:#284,9360> If hInstance
<:#284,9360> CEDestroyInstance(hInstance)
<:#284,9360> DllFreeLib(Libid)
<:#284,9360> Endif
<:#284,9360> FreeGlobalVar("{GlobalInstance}")
<:#284,9360> FreeGlobalVar("{Mac}LibId")
<:#284,9360> Break;
<:#284,9360>
<:#284,9360> Default
<:#284,9360>EndSwitch
<:#284,9360>End Function
@Subhead@<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function FontDlg(Action, Hdlg, id)
<:#284,9360>' 1 Create a font and allocvar
<:#284,9360>' 2 Return the handle of the create font
<:#284,9360>' 3 Set the id specified to the font
<:#284,9360>' 4 Freeglobalvar and delete created object
<:#284,9360>
@Outline2@<:#568,9360>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#284,9360>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@<:#568,9360>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#284,9360>
@Outline2@<:#284,9360>
<:#284,9360>Switch Action
<:#284,9360> Case 1 ' Create the font and store it
@Outline2@<:#284,9360> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
<:#284,9360> AllocGlobalVar("FontHandle",1)
<:#284,9360> If Font
<:#284,9360> SetGlobalVar("FontHandle",Font)
<:#284,9360> Return Font
<:#284,9360> Else
<:#284,9360> Return 0; ' no font
<:#284,9360> Endif
<:#284,9360> Break;
<:#284,9360> Case 2 ' Return the handle to the font
<:#284,9360> Handle = GetGlobalVar$("FontHandle")
<:#284,9360> If Handle
<:#284,9360> Return Handle
<:#284,9360> Else
<:#284,9360> Return 0
<:#284,9360> Endif
<:#284,9360>
<:#284,9360> Case 3 ' Set the id to the font
<:#284,9360> Handle = GetGlobalVar$("FontHandle")
<:#284,9360> If Handle
<:#284,9360> IdControl = GetDlgITem(Hdlg, id)
<:#284,9360> SendMessageDlg(idControl, 0x30, Handle, 0)
<:#284,9360> Return 1
<:#284,9360> Else
<:#284,9360> Return 0
<:#284,9360> Endif
<:#284,9360> Break;
<:#284,9360>
<:#284,9360> Case 4 ' Delete the font and clear the var
<:#284,9360> Handle = GetGlobalVar$("FontHandle")
<:#284,9360> If Handle
<:#284,9360> DeleteObjectDLG(Handle)
<:#284,9360> Stat = 1
<:#284,9360> Else
<:#284,9360> Stat = 0
<:#284,9360> Endif
<:#284,9360> FreeGlobalVar("FontHandle")
<:#284,9360> Return Stat
<:#284,9360> Default
<:#284,9360>EndSwitch
<:#284,9360>
<:#284,9360>End Function
@Subhead@<:#284,9360>
@Subhead@<:#284,9360>Function DoIt(Hdlg, Id)
<:#284,9360>Define EnableWindowIns() DllCall("User,EnableWindow,AHA",%1,%2)
<:#284,9360>Define SetFocusIns() DllCall("user,SetFocus,HH",%1)
<:#284,9360>Define LB_RESETCONTENT 0x405
<:#284,9360>Define ExID 8010
<:#284,9360>Define DescID 1001
<:#284,9360>Define FinancialRadio 20
<:#284,9360>Define StatRadio 21
<:#284,9360>Define MathRadio 22
<:#284,9360>Define LogicRadio 23
<:#284,9360>Define FinanSect "Financial"
<:#284,9360>Define StatSect "Statistical"
<:#284,9360>Define MathSect "Mathematical"
<:#284,9360>Define LogicSect "Logical"
<:#284,9360>
<:#284,9360>
<:#284,9360>Define IniName "AmiCalc.ini"
<:#284,9360>Define Delimiter "~"
<:#284,9360>
<:#284,9360>
<:#284,9360>EnableWindowIns(Hdlg,0)
<:#284,9360>Mac = GetRunningMacroFile$()
<:#284,9360>SetDlgCallBack(FinancialRadio,"{Mac}!RadioCall")
<:#284,9360>SetDlgCallBack(StatRadio,"{Mac}!RadioCall")
<:#284,9360>SetDlgCallBack(MathRadio,"{Mac}!RadioCall")
<:#284,9360>SetDlgCallBack(LogicRadio,"{Mac}!RadioCall")
<:#284,9360>SetDlgCallBack(0,"{Mac}!InitCall")
<:#284,9360>SetDlgCallBack(9000,"{Mac}!RadioCall")
@Outline3@<:#284,9360>DlgKeyInterrupt(VK_F1, "{mac}!DisplayHelp")
<:#284,9360>FillEdit(20,1)
<:#284,9360>Box = DialogBox(".","More")
<:#284,9360>If Box = 1
<:#284,9360> ' need to paste to the edit box
<:#284,9360> Text = GetDlgItemText(Hdlg, Id)
<:#284,9360> Example = GetDialogField$(ExID)
<:#284,9360> NewText = StrCat$(Text, Example)
<:#284,9360> SetDlgItemText(Hdlg, Id, NewText)
<:#284,9360>Endif
<:#284,9360>EnableWindowIns(Hdlg,1)
<:#284,9360>SetFocusIns(GetDlgItem(Hdlg, Id))
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function InitCall(Hdlg, id, value)
<:#284,9360>IgnoreKeyBoard(2)
<:#284,9360>
<:#284,9360>FontDlg(3,Hdlg, DescID)
<:#284,9360>FontDlg(3, Hdlg, ExID)
<:#284,9360>
<:#284,9360>
<:#284,9360>ManageList(Hdlg, 9000, FinanSect)
<:#284,9360>Key= GetDlgItemText(Hdlg, 9000)
<:#284,9360>FullText = GetProfileString$(FinanSect,Key,IniName)
<:#284,9360>Example = StrField$(FullText, 2, Delimiter)
<:#284,9360>Descx = StrField$(FullText, 1, Delimiter)
<:#284,9360>SetDlgITemText(Hdlg, ExID,Example)
<:#284,9360>SetDlgItemText(hdlg, DescID, Descx)
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function RadioCall(hdlg, id, value)
<:#284,9360>IgnoreKeyBoard(2)
<:#284,9360>If GetDlgItemText(Hdlg, FinancialRadio)
<:#284,9360> Section = FinanSect
<:#284,9360>ElseIf GetDlgItemText(Hdlg, MathRadio)
<:#284,9360> Section = MathSect
<:#284,9360>ElseIf GetDlgITemText(hdlg, StatRadio)
<:#284,9360> Section = StatSect
<:#284,9360>ElseIf GetDlgItemText(hdlg, LogicRadio)
<:#284,9360> Section = LogicSect
<:#284,9360>Endif
<:#284,9360>
<:#284,9360>Switch Id
<:#284,9360> Case 9000
<:#284,9360>
<:#284,9360> ' this is for the list box
<:#284,9360> Key= GetDlgItemText(Hdlg, 9000)
<:#284,9360> FullText = GetProfileString$(Section,Key,IniName)
<:#284,9360> Example = StrField$(FullText, 2, Delimiter)
<:#284,9360> Descx = StrField$(FullText, 1, Delimiter)
<:#284,9360> SetDlgITemText(Hdlg, ExID,Example)
<:#284,9360> SetDlgItemText(hdlg, DescID, Descx)
<:#284,9360> Break;
<:#284,9360>
<:#284,9360> Default
<:#284,9360> ' this will be for any radio button
<:#284,9360> ManageList(Hdlg, 9000, Section)
<:#284,9360> Key= GetDlgItemText(Hdlg, 9000)
<:#284,9360> FullText = GetProfileString$(Section,Key,IniName)
<:#284,9360> Example = StrField$(FullText, 2, Delimiter)
<:#284,9360> Descx = StrField$(FullText, 1, Delimiter)
<:#284,9360> SetDlgITemText(Hdlg, ExID,Example)
<:#284,9360> SetDlgItemText(hdlg, DescID, Descx)
<:#284,9360> Break;
<:#284,9360>
<:#284,9360>EndSwitch
<:#284,9360>
<:#284,9360>
<:#284,9360>End Function
<:#284,9360>
<:#284,9360>
@Subhead@<:#284,9360>Function ManageList(Hdlg, id, Section)
<:#284,9360>DefStr KeyName;
<:#284,9360>AppSendMessage(GetDlgItem(Hdlg, 9000),LB_RESETCONTENT,0,0)
<:#284,9360>AllKeys = GetProfileString$(Section,0,IniName)
<:#284,9360>Field = 1
<:#284,9360>While -1 != Assign(&KeyName, StrField$(AllKeys, Field, "~"))
<:#284,9360> If KeyName <;>""
<:#284,9360> SetDlgItemText(Hdlg, 9000, KeyName)
<:#284,9360> Endif
<:#284,9360> Field = Field + 1
<:#284,9360>Wend
<:#284,9360>End function
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>
<:#284,9360>DIALOG More
<:#284,9360>-2134376448 13 61 28 187 118 "" "AmiDialog" "More @Functions"
<:#284,9360>FONT 8 "Helv"
<:#284,9360>7 12 50 11 20 1342242825 "button" "&Financial" 0
<:#284,9360>7 24 50 11 21 1342242825 "button" "&Statistical" 0
<:#284,9360>7 35 54 11 22 1342242825 "button" "&Mathematical" 0
<:#284,9360>7 46 50 11 23 1342242825 "button" "&Logical" 0
<:#284,9360>79 15 58 40 9000 1352728579 "listbox" "" 0
<:#284,9360>7 57 176 24 30 1342308359 "button" "Example" 0
<:#284,9360>7 83 176 32 31 1342308359 "button" "Description" 0
<:#284,9360>13 68 148 10 8010 1342177280 "static" "text" 0
<:#284,9360>13 93 158 20 1001 1342177280 "static" "text" 0
<:#284,9360>4 3 44 10 1000 1342177280 "static" "Categories:" 0
<:#284,9360>78 3 40 10 1002 1342177280 "static" "@Functions:" 0
<:#284,9360>143 3 40 14 1 1342373889 "button" "Insert" 0
<:#284,9360>143 19 40 14 2 1342373888 "button" "Cancel" 0
<:#284,9360>END DIALOG
@Subhead@<:#284,9360>
@Subhead@<:#284,9360>
@Subhead@<:#284,9360>
@Subhead@<:#284,9360>
<:#284,9360>DIALOG Deprec
<:#284,9360>-2134376448 11 56 53 226 78 "" "AmiDialog" "Solve @Function"
<:#284,9360>FONT 8 "Helv"
<:#284,9360>5 16 162 12 8000 1350631552 "edit" "" 0
<:#284,9360>181 4 40 14 1 1342373889 "button" "Done" 0
<:#284,9360>5 4 106 8 1001 1342177280 "static" "" 0
<:#284,9360>173 64 46 8 8004 1342177281 "static" "" 0
<:#284,9360>171 49 50 27 20 1342308359 "button" "" 0
<:#284,9360>5 35 32 10 1002 1342177280 "static" "Example:" 0
<:#284,9360>34 35 128 18 1003 1342177280 "static" "text" 0
<:#284,9360>181 20 40 14 3 1342373888 "button" "Copy" 0
<:#284,9360>185 54 30 8 1000 1342177280 "static" "Answer:" 0
<:#284,9360>170 36 51 14 22 1342373888 "button" "@&Functions..." 0
<:#284,9360>5 56 159 17 1004 1342177280 "static" "text" 0
<:#284,9360>END DIALOG
>
[Embedded]
00021506
>
[macsum] 13
Main 0 0 5 17
DataChange 548 3 4 39
InitDlg 802 3 2 55
FunButton 1051 3 1 68
DisplayHelp 1148 0 4 77
CellEngine 1334 2 9 93
FontDlg 2301 3 5 170
DoIt 3098 2 6 226
InitCall 3607 3 5 269
RadioCall 3902 3 6 286
ManageList 4625 3 4 327
More 4897 0 -1 343
Deprec 5644 0 -1 364
[macse]
14 Main
0 802
13
8 2
16 FontDlg 1 0 0
16 CellEngine 1 0
0 31 1001 "Enter the formula or @function below:"
0 31 1003 "To calculate the sum of three numbers multiplied by 12, type @sum(12,22,34)*12"
0 31 1004 "Choose @Functions to get a list of available @functions to insert into your formula."
0 41 0 "{2}!InitDlg"
0 41 22 "{2}!FunButton"
0 41 8000 "{2}!DataChange"
0 47 112 "{2}!DisplayHelp"
0 26 "." "Deprec"
13
8 3
6 3
5 3
18 0
11 00000499
0 27 8004
13
8 4
0 1038 "{4}" 1
16 FontDlg 4 0 0
16 CellEngine 0 0
6 0
15
9
14 DataChange
0 32 2
0 42 "{0}" 8000
13
8 5
16 CellEngine 3 "@IF({5}<<1E49,@Round({5},2),@ERR)"
13
8 6
0 277 "{6}"
13
11 00000219
6 6
5 1
4 0
8 6
0 19 "" "" 2 "{6}"
13
0 43 "{0}" 8004 [X]
10 00000242
0 43 "{0}" 8004 "{6}"
6 3
15
9
14 InitDlg
0 32 2
0 296 1
5 1000
8 4
5 1004
6 4
18 2
12 00000120
10 00000159
5 1
6 4
3 0
8 4
10 00000042
16 FontDlg 3 "{0}" "{4}"
10 00000087
16 FontDlg 3 "{0}" 8000
0 44 "{0}" 8000
13
0 1036 [X] 1045 120 0
0 296 0
6 3
15
9
14 FunButton
16 DoIt "{0}" 8000
0 42 "{0}" 8000
13
16 DataChange "{0}" 8000 [X]
6 3
15
9
14 DisplayHelp
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HelpPack.hlp"
13
8 2
5 100
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 CellEngine
0 802
13
8 6
0 16 "{6}" "hIstance"
13
8 7
0 798
13
8 8
5 1
6 0
18 0
11 00000447
0 297 "{8}LTSCE01.DLL" "CECreateInstance" "HO"
13
8 9
6 9
5 0
18 0
11 00000277
0 3 "LTSCE01.DLL not found. Copy the dll to your windows directory"
5 -1
15
9
0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
13
8 10
0 271 "{7}" 1
0 271 "{6}LibId" 1
0 264 "{6}Libid" "{9}"
0 264 "{7}" "{3}"
6 3
15
9
10 00000955
10 00000955
5 2
6 0
18 0
11 00000551
0 271 "{7}" 1
0 265 "{7}"
13
8 3
6 3
15
9
10 00000955
10 00000955
5 3
6 0
18 0
11 00000706
0 271 "{7}" 1
0 265 "{7}"
13
8 3
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
6 4
15
9
10 00000955
10 00000955
5 0
6 0
18 0
11 00000955
0 271 "{7}" 1
0 271 "{6}LibId" 1
0 265 "{7}"
13
8 3
0 265 "{6}LibId"
13
8 9
6 3
11 00000898
0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
0 298 "{9}"
0 266 "{7}"
0 266 "{6}LibId"
10 00000955
10 00000955
6 2
15
9
14 FontDlg
5 1
6 0
18 0
11 00000255
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
0 271 "FontHandle" 1
6 4
11 00000217
0 264 "FontHandle" "{4}"
6 4
15
9
10 00000229
5 0
15
9
10 00000785
10 00000785
5 2
6 0
18 0
11 00000381
0 265 "FontHandle"
13
8 5
6 5
11 00000356
6 5
15
9
10 00000368
5 0
15
9
10 00000785
5 3
6 0
18 0
11 00000596
0 265 "FontHandle"
13
8 5
6 5
11 00000558
0 44 "{1}" "{2}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
5 1
15
9
10 00000570
5 0
15
9
10 00000785
10 00000785
5 4
6 0
18 0
11 00000785
0 265 "FontHandle"
13
8 5
6 5
11 00000730
0 284 "gdi,DeleteObject,HH" "{5}"
5 1
8 7
10 00000740
5 0
8 7
0 266 "FontHandle"
6 7
15
9
10 00000785
6 3
15
9
14 DoIt
0 284 "User,EnableWindow,AHA" "{0}" 0
0 802
13
8 3
0 41 20 "{3}!RadioCall"
0 41 21 "{3}!RadioCall"
0 41 22 "{3}!RadioCall"
0 41 23 "{3}!RadioCall"
0 41 0 "{3}!InitCall"
0 41 9000 "{3}!RadioCall"
0 47 112 "{3}!DisplayHelp"
0 31 20 1
0 26 "." "More"
13
8 4
6 4
5 1
18 0
11 00000406
0 42 "{0}" "{1}"
13
8 5
0 27 8010
13
8 6
0 16 "{5}" "{6}"
13
8 7
0 43 "{0}" "{1}" "{7}"
0 284 "User,EnableWindow,AHA" "{0}" 1
0 44 "{0}" "{1}"
13
0 284 "user,SetFocus,HH" [X]
6 2
15
9
14 InitCall
0 32 2
16 FontDlg 3 "{0}" 1001
16 FontDlg 3 "{0}" 8010
16 ManageList "{0}" 9000 "Financial"
0 42 "{0}" 9000
13
8 4
0 286 "Financial" "{4}" "AmiCalc.ini"
13
8 5
0 20 "{5}" 2 "~"
13
8 6
0 20 "{5}" 1 "~"
13
8 7
0 43 "{0}" 8010 "{6}"
0 43 "{0}" 1001 "{7}"
6 3
15
9
14 RadioCall
0 32 2
0 42 "{0}" 20
13
11 00000087
7 "Financial"
8 4
10 00000272
0 42 "{0}" 22
13
11 00000155
7 "Mathematical"
8 4
10 00000272
0 42 "{0}" 21
13
11 00000222
7 "Statistical"
8 4
10 00000272
0 42 "{0}" 23
13
11 00000272
7 "Logical"
8 4
5 9000
6 1
18 0
11 00000498
0 42 "{0}" 9000
13
8 5
0 286 "{4}" "{5}" "AmiCalc.ini"
13
8 6
0 20 "{6}" 2 "~"
13
8 7
0 20 "{6}" 1 "~"
13
8 8
0 43 "{0}" 8010 "{7}"
0 43 "{0}" 1001 "{8}"
10 00000711
10 00000711
16 ManageList "{0}" 9000 "{4}"
0 42 "{0}" 9000
13
8 5
0 286 "{4}" "{5}" "AmiCalc.ini"
13
8 6
0 20 "{6}" 2 "~"
13
8 7
0 20 "{6}" 1 "~"
13
8 8
0 43 "{0}" 8010 "{7}"
0 43 "{0}" 1001 "{8}"
10 00000711
6 3
15
9
14 ManageList
0 44 "{0}" 9000
13
0 1036 [X] 1029 0 0
0 286 "{2}" 0 "AmiCalc.ini"
13
8 5
5 1
8 6
5 -1
0 20 "{5}" "{6}" "~"
13
0 805 &4 [X]
13
18 1
11 00000260
6 4
7 ""
18 3
11 00000227
0 43 "{0}" 9000 "{4}"
6 6
5 1
3 0
8 6
10 00000105
6 3
15
9
DIALOG More
-2134376448 13 61 28 187 118 "" "AmiDialog" "More @Functions"
FONT 8 "Helv"
7 12 50 11 20 1342242825 "button" "&Financial" 0
7 24 50 11 21 1342242825 "button" "&Statistical" 0
7 35 54 11 22 1342242825 "button" "&Mathematical" 0
7 46 50 11 23 1342242825 "button" "&Logical" 0
79 15 58 40 9000 1352728579 "listbox" "" 0
7 57 176 24 30 1342308359 "button" "Example" 0
7 83 176 32 31 1342308359 "button" "Description" 0
13 68 148 10 8010 1342177280 "static" "text" 0
13 93 158 20 1001 1342177280 "static" "text" 0
4 3 44 10 1000 1342177280 "static" "Categories:" 0
78 3 40 10 1002 1342177280 "static" "@Functions:" 0
143 3 40 14 1 1342373889 "button" "Insert" 0
143 19 40 14 2 1342373888 "button" "Cancel" 0
DIALOG Deprec
-2134376448 11 56 53 226 78 "" "AmiDialog" "Solve @Function"
FONT 8 "Helv"
5 16 162 12 8000 1350631552 "edit" "" 0
181 4 40 14 1 1342373889 "button" "Done" 0
5 4 106 8 1001 1342177280 "static" "" 0
173 64 46 8 8004 1342177281 "static" "" 0
171 49 50 27 20 1342308359 "button" "" 0
5 35 32 10 1002 1342177280 "static" "Example:" 0
34 35 128 18 1003 1342177280 "static" "text" 0
181 20 40 14 3 1342373888 "button" "Copy" 0
185 54 30 8 1000 1342177280 "static" "Answer:" 0
170 36 51 14 22 1342373888 "button" "@&Functions..." 0
5 56 159 17 1004 1342177280 "static" "text" 0
00021531